home *** CD-ROM | disk | FTP | other *** search
/ Pro One: Netcracker Netscape Navigator / ProOne: Netcracker Netscape Navigator.iso / pc / nc / wds / nc_find.geo / 00024.ls < prev    next >
Encoding:
Text File  |  1997-03-19  |  551 b   |  29 lines
  1. on setAlfaBet
  2.   global AlfaBet
  3.   set AlfaBet to "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ@-:"
  4. end
  5.  
  6. on getAlfaBet
  7.   global AlfaBet
  8.   return AlfaBet
  9. end
  10.  
  11. on checkkey
  12.   put the keyCode
  13.   if (the keyCode = 76) or (the keyCode = 36) then
  14.     clickBtn(3)
  15.     dontPassEvent()
  16.     exit
  17.   end if
  18.   if the keyCode <> 51 then
  19.     if (the number of chars in field "WordFld" >= 20) and (length(the selection) = 0) then
  20.       dontPassEvent()
  21.     else
  22.       if not (getAlfaBet() contains the key) then
  23.         dontPassEvent()
  24.       end if
  25.     end if
  26.   else
  27.   end if
  28. end
  29.